home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / run.zip / RUN.WAS < prev    next >
Encoding:
Text File  |  1992-08-23  |  1.6 KB  |  66 lines
  1. ;RUN.WAS - by David Snyder
  2. ;Pops up a dialog box  to choose a program to run
  3.  
  4. ;Initialize variables
  5. integer app, choice
  6. string name, name1, name2, name3, name4
  7.  
  8. proc main
  9. ;Edit the following variables to customize the script for 
  10. ;running your choice of programs.
  11. ;The name variables are the programs corresponding to each menu 
  12. ;choice
  13. name1="deskedit.exe"
  14. name2="wp.pif"
  15. name3="e:\wpwin\wpwin.exe"
  16. name4="g:\windows\util\winzip.exe"
  17.  
  18.   call choose_app
  19.   choice=$DIALOG
  20.   while choice != 1
  21.      choice=$DIALOG
  22.      switch choice
  23.         case 10
  24.            run name
  25.            exit
  26.         endcase
  27.         case 11
  28.            exitwhile
  29.         endcase
  30.         case 50
  31.            switch app
  32.             case 1
  33.                   name=name1
  34.             endcase
  35.             case 2
  36.                  name=name2
  37.             endcase
  38.             case 3
  39.                  name=name3
  40.             endcase
  41.             case 4
  42.                   name=name4
  43.             endcase
  44.       endswitch
  45.         endcase
  46.      endswitch
  47.   endwhile
  48.   exit
  49. endproc
  50.  
  51. proc choose_app
  52. ;Edit the radiobutton strings to display the programs you wish
  53. ;to run, corresponding to the name string variables initialized
  54. ;above.
  55. dialogbox 2 14 157 127 2 "Run a program"
  56.    radiobutton 30 36 90 10 "Text editor" app
  57.    radiobutton 30 48 90 9 "DOS WordProcessor"
  58.    radiobutton 30 60 90 10 "Windows WordProcessor"
  59.    radiobutton 30 72 90 10 "ZIP file manager" endgroup
  60.    pushbutton 25 104 40 14 "OK" normal
  61.    pushbutton 81 104 40 14 "Cancel" cancel
  62.    text  9 4 80 13 left "Choose a program to run"
  63.    groupbox 22 22 111 68 "Programs" shadow
  64. enddialog
  65. endproc
  66.